home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mail / AEMail.lha / aemail143 / Install_AEMail < prev    next >
Text File  |  1998-01-17  |  44KB  |  1,169 lines
  1. ;**
  2. ;** Install_AEMail - AEMail installation script for Installer
  3. ;**
  4. ;** Copyright (c) 1996-1998 John F. Zacharias
  5. ;**                    All rights reserved.
  6. ;**
  7. ;** This script has been tested with Installer 43.3 which is included with
  8. ;** this archive:
  9. ;**
  10. ;**     Installer and Installer project icon
  11. ;**     (c) Copyright 1995-96 Escom AG.  All Rights Reserved.
  12. ;**     Reproduced and distributed under license from Escom AG.
  13. ;**
  14. ;**     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  15. ;**     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  16. ;**     OR RESPONSIBILITY IS ASSUMED.
  17. ;**
  18. ;** Use following Icon tooltypes / Command line options:
  19. ;**
  20. ;** APPNAME=AEMail
  21. ;** MINUSER=NOVICE
  22. ;**
  23. ;**
  24. ;** Installer script modified on 01/15/98 for AEMail Version 1.43
  25.  
  26. (set
  27.  ;;
  28.  ;; The source directory name
  29.  ;;
  30.  source-dir (if (= 1 (exists @icon))
  31.             (pathonly (expandpath @icon))
  32.             (expandpath @icon)))
  33.  
  34. (set version_3_0 39)  
  35.  
  36. (set aem-vernum (getversion (tackon source-dir "AEMail")))
  37. (set
  38.     aem-vernew (/ aem-vernum 65536)
  39.     aem-revnew (- aem-vernum (* aem-vernew 65536)))
  40.  
  41. (set exec-version (/ (getversion) 65536))
  42. (set avail-mem (+ (database "total-mem")))
  43. (set system-cpu (database "cpu"))
  44.  
  45. (set full-aem-name "AEMail Beta Version 1.30")
  46.  
  47. (set
  48.     aem-name "AEMail"
  49.     aem-assign (cat aem-name ":")
  50.     aem-Termite 0
  51.     )
  52.  
  53. (if (= 1 (exists "ENV:TermiteTCP.prefs" (noreq)))
  54.          (set aem-Termite 1)
  55.          (set aem-Termite 0))
  56.  
  57. (if (= 2 (exists "AMITCP:bin" (noreq)))
  58.     (set aem-have-AMITCP 1)
  59.     (set aem-have-AMITCP 0))
  60.  
  61. (if (= 2 (exists "Miami:" (noreq)))
  62.     (set aem-have-MIAMI 1)
  63.     (set aem-have-MIAMI 0))
  64.  
  65. (if (= 1 (exists "ENV:AEMail_Dir" (noreq)))
  66.     (set @default-dest (getenv ("AEMail_Dir")))
  67.     (set @default-dest
  68.         (if (= 1 aem-have-AMITCP)
  69.             (expandpath "AMITCP:bin")
  70.             (@default-dest))))
  71.  
  72. (if (= "AEMail" (fileonly @default-dest))
  73.     (set @default-dest (pathonly @default-dest)))
  74.  
  75.  
  76. (if (= 2 @user-level)
  77.  
  78.     (set
  79.     ;;
  80.     ;; Sets up where to place AEMail program
  81.     ;;
  82.     @default-dest
  83.         (askdir
  84.             (prompt "Enter the drawer in which you want AEMail installed\n"
  85.                     "A drawer called AEMail will be created "
  86.                     "if it does not already exist (except if AmiTCP:bin is "
  87.                     "specified)")
  88.             (help   "If you are using AmiTCP, AEMail should be installed in "
  89.                     "'AmiTCP:bin'\n\n"
  90.                     "However, you may install it anywhere you like\n\n"
  91.                     "If it is not 'AmiTCP:bin' a drawer called 'AEMail' "
  92.                     "will be created.\n")
  93.             (default @default-dest)
  94.             (newpath))))
  95.  
  96. (if (= 1 aem-have-AMITCP)
  97.     (if (<> @default-dest (expandpath "AMITCP:bin"))
  98.         (set aem-have-AMITCP 0)))
  99.  
  100. ; (if (= "AEMail" (fileonly @default-dest))
  101. ;     (set @default-dest (pathonly @default-dest)))
  102.  
  103. (if (= 0 aem-have-AMITCP)
  104.     (set @default-dest (tackon @default-dest "AEMail")))
  105.  
  106. (if (= 0 (exists @default-dest (noreq)))
  107.     ((makedir @default-dest (infos))
  108.      (onerror ((delete @default-dest
  109.                 (prompt "Deleting AEMail directory")
  110.                 (help "Deleting AEMail directory")
  111.                 (optional "force")
  112.                 (safe)
  113.                 (all)
  114.                 (infos))
  115.               (delete "RAM:AEMfiles"
  116.                 (prompt "Deleting RAM: AEMail files")
  117.                 (optional "force")
  118.                 (safe)
  119.                 (all)
  120.                 (infos))))))
  121.  
  122. (if (= 1 (exists @default-dest (noreq)))
  123.     (set @default-dest (pathonly @default-dest)))
  124.  
  125. (set aem-default-dest @default-dest)
  126.  
  127. (set
  128.  ;;
  129.  ;; The default Mail directory
  130.  ;;
  131.     aem-change-name 0
  132.  
  133.     atcp-dir (if (= 1 aem-have-AMITCP)
  134.         (expandpath "AMITCP:")
  135.         (@default-dest))
  136.  
  137.     aem-dft-maildir (if (= 2 (exists aem-assign (noreq)))
  138.         (pathonly(getassign aem-name))
  139.         (atcp-dir))
  140.  
  141.     aem-mail-name (if (= 2 (exists aem-assign (noreq)))
  142.         (fileonly(getassign aem-name))
  143.         (""))
  144.   )
  145.  
  146.  
  147. (if (<> "" aem-mail-name)
  148.     (if (<> "AEMail_Mail" aem-mail-name)
  149.         ((set
  150.             aem-change-name
  151.                 (askbool
  152.                     (prompt "Your AEMAIL: assignment is for:\n\n"
  153.                             (getassign aem-name) "\n\n"
  154.                             "This directory is not named \"AEMail_Mail\"\n\n"
  155.                             "Do you want to change the directory's name to "
  156.                             "\"AEMail_Mail\" and use it as your AEMAIL: directory?")
  157.                     (help   "This install script automatically uses an AEMAIL: "
  158.                             "assignment name of \"AEMail_Mail\".  If you reply NO "
  159.                             "to this request your existing AEMAIL: directory "
  160.                             "will NOT be used as your mail directory\n")
  161.                     (default 1))))))
  162.  
  163. (if (= 1 aem-change-name)
  164.  
  165.     ((rename (tackon aem-dft-maildir aem-mail-name)
  166.             (tackon aem-dft-maildir "AEMail_Mail")
  167.             (prompt "Relabeling AEMAIL: directory")
  168.             (help   "Relabeling AEMAIL: directory"))
  169.     (rename (tackon aem-dft-maildir ("%s.info" aem-mail-name))
  170.             (tackon aem-dft-maildir "AEMail_Mail.info")
  171.             (prompt "Relabeling AEMAIL: directory .info")
  172.             (help   "Relabeling AEMAIL: directory .info")))
  173. )
  174.  
  175. (set
  176.     aem-mail-dir (aem-dft-maildir))
  177.  
  178. (if (= 2 @user-level)
  179.  
  180.     (set
  181.         aem-mail-dir
  182.             (askdir
  183.                 (prompt "Enter the drawer in which you want your mail placed.  "
  184.                     "A drawer called 'AEMail_Mail' will be created in this "
  185.                     "drawer (if it does not already exist) and AEMAIL: will be "
  186.                     "assigned to 'AEMail_Mail'")
  187.                 (help   "All of your mail and configuration files will be stored "
  188.                     "in the 'AEMail_Mail' sub-directory of this drawer.  An assign "
  189.                     "statement will be assigned to the 'AEMail_Mail' sub-directory to 'AEMAIL:' "
  190.                     "and will be placed in your 'S:User-Startup' script.\n\n"
  191.                     "The directory your specify here will be created if it does "
  192.                     "not exist\b")
  193.                 (default aem-dft-maildir)
  194.                 (newpath))))
  195.  
  196.  
  197. (if (= "AEMail_Mail" (fileonly aem-mail-dir))
  198.     (set aem-mail-dir (pathonly aem-mail-dir)))
  199.  
  200. (set aem-mail-dir (tackon aem-mail-dir "AEMail_Mail"))
  201.  
  202. ; Use ENV:PAGER program, Multiview, or copy "More" to RAM: for use
  203.  
  204. (set
  205.  pager-cmd (if (exists "ENV:PAGER" (noreq)) (getenv "PAGER"))
  206.  pager-cmd
  207.     (if pager-cmd pager-cmd
  208.         (if (= 1 (exists "SYS:Utilities/Multiview" (noreq)))
  209.             ("SYS:Utilities/Multiview")
  210.             ((copyfiles
  211.                 (prompt "Copying " (tackon source-dir "c/More") " to RAM: for use")
  212.                 (source (tackon source-dir "c/More"))
  213.                 (dest   "RAM:")
  214.                 (safe)
  215.                 (optional "nofail"))
  216.                 "RAM:More"))))
  217.  
  218. (makedir "RAM:AEMfiles")
  219.  
  220. (copyfiles
  221.     (prompt "Copying AEMail.readme to RAM:")
  222.     (source (tackon source-dir "AEMail.readme"))
  223.     (dest   "RAM:AEMfiles")
  224.     (infos))
  225.  
  226. (copyfiles
  227.     (prompt "Copying LHA to RAM:")
  228.     (source (tackon source-dir "c/LHex"))
  229.     (dest   "RAM:"))
  230.  
  231. (set
  232.     doc-files (tackon source-dir "files.lha"))
  233.  
  234. (set
  235.     doc-files ("\"%s\"" doc-files))
  236.  
  237. (message "\n\nSelect PROCEED to decompress the AEMail files to RAM\n\n"
  238.     "Be patient, this will take a while\n\n"
  239.     "If you are installing from diskette, the decompression "
  240.     "will take approx 3 minutes\n\n"
  241.     "From your hard drive, the decompression will take approx 20 seconds")
  242.  
  243. (set aem-lha
  244.     (run "RAM:lhex -fwRAM:AEMfiles x " doc-files " >NIL:" (safe)))
  245.  
  246. (if (< exec-version version_3_0)
  247.     (tooltype
  248.         (dest "RAM:AEMfiles/AEMail.guide")
  249.         (setdefaulttool "AmigaGuide"))
  250.     (tooltype
  251.         (dest "RAM:AEMfiles/AEMail.guide")
  252.         (setdefaulttool "MultiView")))
  253.  
  254. (delete 
  255.     "RAM:lhex"
  256.     (prompt "Deleting RAM:lha file")
  257.     (optional "force")
  258.     (safe))
  259.  
  260. (set
  261.     aem-configure 0
  262.     aem-interlace 0
  263.     aem-needconfig 0
  264.     aem-options 3
  265.     aem-config "